Painter Bear's Language Bridge — Italian/Bridge_ponte_itialian.iso/pc/helpers/open.dxr/00008_Parent For Timer.ls

Text File | 2001-02-22 | 405 b | 27 lines

property myStartTime, myTime, isStarted

on new me
  set myTime to 0
  set myStartTime to 0
  set isStarted to 0
  return me
end

on startTheTimer me
  set myStartTime to the timer
  set isStarted to 1
end

on reportTimer me
  if isStarted = 1 then
    set myTime to integer(the timer - myStartTime)
  else
    set myTime to 0
  end if
end

on stopTimer me
  set isStarted to 0
  set myStartTime to 0
end